home *** CD-ROM | disk | FTP | other *** search
/ Remax Data / Remax Porfolio Data 15 Jul 1994 CD-ROM.ISO / fp26_rmx / take.prg < prev    next >
Encoding:
Text File  |  1994-06-29  |  46.9 KB  |  1,698 lines
  1. * This program reads in raw data from remax in the specified format
  2. * It replaces the remax.ap file and awk
  3.  
  4. new = FCREATE("RMXDTA.TXT")
  5. bio = FCREATE("bioinfo.txt")
  6. handle = FOPEN("NAME.dat")
  7. *
  8. *IF handle < 0
  9. *    DEFINE WINDOW alert FROM 7,17 TO 12,60 DOUBLE COLOR SCHEME 7
  10.     
  11. *    DO CASE
  12. *        CASE FERROR() = 4
  13. *            reason = 'Too many files Open'
  14. *        CASE FERROR() = 5
  15. *            reason = 'Access Denied'
  16. *        CASE FERROR() = 8
  17. *            reason = 'Out of Memory'
  18. *        CASE FERROR() = 31
  19. *            reason = 'GENERAL FAILURE'
  20. *    ENDCASE
  21.     
  22. *   CANCEL
  23.     
  24. * ENDIF
  25.  
  26. Count = 0
  27.  
  28. DO WHILE Count <= 15       && NOT FEOF(handle)
  29.  
  30.     Region = FREAD(handle, 2)
  31.     Office = FREAD(handle, 3)
  32.     Number = FREAD(handle, 3)
  33.     Unique = FREAD(handle,12)
  34.     Name = FREAD(handle, 30)
  35.     Nick = FREAD(handle, 20)
  36.     Title = FREAD(handle, 2)
  37.     Posistion = FREAD(handle, 30)
  38.     Spec1 = FREAD(handle, 3)
  39.     Spec2 = FREAD(handle, 3)
  40.     Lang1 = FREAD(handle, 20)
  41.     Lang2 = FREAD(handle, 20)
  42.     Lang3 = FREAD(handle, 20)
  43.     License = FREAD(handle, 4)
  44.     Join = FREAD(handle, 4)
  45.     Sales = FREAD(handle, 6)
  46.     Desig1 = FREAD(handle, 6)
  47.     Desig2 = FREAD(handle, 6)
  48.     Desig3 = FREAD(handle, 6)
  49.     Desig4 = FREAD(handle, 6)
  50.     Desig5 = FREAD(handle, 6)
  51.     Desig6 = FREAD(handle, 6)
  52.     Club = FREAD(handle, 4)
  53.     ROF = FREAD(handle, 12)
  54.     Comm1 = UPPER(FREAD(handle, 1))
  55.     Comm2 = UPPER(FREAD(handle, 1))
  56.     Comm3 = UPPER(FREAD(handle, 1))
  57.     Comm4 = UPPER(FREAD(handle, 1))
  58.     Comm5 = UPPER(FREAD(handle, 1))
  59.     skip = FSEEK(handle, 5, 1)
  60.     OffName = FREAD(handle, 30)
  61.     OffAdd1 = FREAD(handle, 30)
  62.     OffAdd2 = FREAD(handle, 30)
  63.     City = FREAD(handle, 17)
  64.     State = FREAD(handle, 2)
  65.     Zip = FREAD(handle, 10)
  66.     Country = FREAD(handle, 20)
  67.     Phone1 = FREAD(handle, 12)
  68.     Phone2 = FREAD(handle, 12)
  69.     Phone3 = FREAD(handle, 12)
  70.     Phone4 = FREAD(handle, 12)
  71.     FAX = FREAD(handle, 12)
  72.     Service1 = FREAD(handle, 20)
  73.     Service2 = FREAD(handle, 20)
  74.     Service3 = FREAD(handle, 20)
  75.     Service4 = FREAD(handle, 20)
  76.     Open = FREAD(handle, 6)
  77.     ADI = FREAD(handle, 20)
  78.     Page = FREAD(handle, 4)
  79.     Coor = FREAD(handle, 2)
  80.     OffType = FREAD(handle, 2)
  81.     CityOver = FREAD(handle, 17)
  82.     RosterSta = FREAD(handle, 30)
  83.     Rams = FREAD(handle, 15)
  84.     Achiev = FREAD(handle, 20)
  85.     COMPUSERV = FREAD(handle, 17)
  86.  
  87. * START READING BIO INFO    
  88.  
  89.     PhoneLoc = FREAD(handle, 12)
  90.     HomePhone = FREAD(handle, 12)
  91.     AgntFax = FREAD(handle, 12)
  92.     AgntPager = FREAD(handle, 12)
  93.     AgntMobile = FREAD(handle, 12)
  94.     CIVIC1 = UPPER(FREAD(handle, 4))
  95.     CIVIC2 = UPPER(FREAD(handle, 4))
  96.     CIVIC3 = UPPER(FREAD(handle, 4))
  97.     HOBBY1 = UPPER(FREAD(handle, 4))
  98.     HOBBY2 = UPPER(FREAD(handle, 4))
  99.     HOBBY3 = UPPER(FREAD(handle, 4))
  100.     MEMBER1 = FREAD(handle, 4)
  101.     MEMBER2 = FREAD(handle, 4)
  102.     MEMBER3 = FREAD(handle, 4)
  103.     Service1 = FREAD(handle, 20)
  104.     Service2 = FREAD(handle, 20)
  105.     Service3 = FREAD(handle, 20)
  106.     Service4 = FREAD(handle, 20)
  107.     Service5 = FREAD(handle, 20)
  108.     Education = FREAD(handle, 15)
  109.     Desig1 = FREAD(handle, 10)
  110.     Desig2 = FREAD(handle, 10)
  111.     Desig3 = FREAD(handle, 10)
  112.     Career = FREAD(handle, 40)
  113.     Price_fr = FREAD(handle, 12)
  114.     Price_to = FREAD(handle, 12)
  115.     Pref = FREAD(handle, 1)
  116.     Referal1 = FREAD(handle, 1)
  117.     Referal2 = FREAD(handle, 1)
  118.     Referal3 = FREAD(handle, 1)
  119.     Referal4 = FREAD(handle, 1)
  120.     ERCPaper = FREAD(handle, 1)
  121.     Welcomekit = FREAD(handle, 1)
  122.     Relocations = FREAD(handle, 5)
  123.     Picture = FREAD(handle, 1)
  124.     EntryDate = FREAD(handle, 6)
  125.     BioSubs = FREAD(handle, 10)
  126.     Info = FGETS(handle, 480)
  127.     
  128. * START WRITING TO "new"
  129.     
  130.     =FWRITE(new, Region)
  131.     =FWRITE(new, ',')
  132.     =FWRITE(new, Office)
  133.     =FWRITE(new, ',')
  134.     =FWRITE(new, Number)
  135.     =FWRITE(new, ',')    
  136.     =FWRITE(new, Unique)
  137.     =FWRITE(new, ',"')    
  138.     =FWRITE(new, TRIM(Name))
  139.     =FWRITE(new, '",')    
  140.  
  141.     IF NOT EMPTY(TRIM(Nick))
  142.         =FWRITE(new, '"'+TRIM(Nick)+'",')
  143.     ELSE
  144.         =FWRITE(new, ',')
  145.     ENDIF
  146.  
  147.     IF NOT EMPTY(TRIM(Title))
  148.         =FWRITE(new, '"'+TRIM(Title)+'",')
  149.     ELSE
  150.         =FWRITE(new, ',')
  151.     ENDIF
  152.  
  153.     IF NOT EMPTY(TRIM(Posistion))
  154.         =FWRITE(new, '"'+TRIM(Posistion)+'",')
  155.     ELSE
  156.         =FWRITE(new, ',')
  157.     ENDIF
  158.     
  159.     IF NOT EMPTY(TRIM(Spec1))
  160.         =FWRITE(new, '"'+TRIM(Spec1)+'",')
  161.     ELSE
  162.         =FWRITE(new, ',')
  163.     ENDIF
  164.         
  165.     IF NOT EMPTY(TRIM(Spec2))
  166.         =FWRITE(new, '"'+TRIM(Spec2)+'",')
  167.     ELSE
  168.         =FWRITE(new, ',')
  169.     ENDIF
  170.         
  171.     IF NOT EMPTY(TRIM(Lang1))
  172.         =FWRITE(new, '"'+TRIM(Lang1)+'",')
  173.     ELSE
  174.         =FWRITE(new, ',')
  175.     ENDIF
  176.         
  177.     IF NOT EMPTY(TRIM(Lang2))
  178.         =FWRITE(new, '"'+TRIM(Lang2)+'",')
  179.     ELSE
  180.         =FWRITE(new, ',')
  181.     ENDIF
  182.         
  183.     IF NOT EMPTY(TRIM(Lang3))
  184.         =FWRITE(new, '"'+TRIM(Lang3)+'",')
  185.     ELSE
  186.         =FWRITE(new, ',')
  187.     ENDIF
  188.         
  189.     IF NOT EMPTY(TRIM(License))
  190.         =FWRITE(new, TRIM(License)+',')
  191.     ELSE
  192.         =FWRITE(new, ',')
  193.     ENDIF
  194.         
  195.     IF NOT EMPTY(TRIM(Join))
  196.         =FWRITE(new, TRIM(Join)+',')
  197.     ELSE
  198.         =FWRITE(new, ',')
  199.     ENDIF
  200.         
  201.     IF NOT EMPTY(TRIM(Sales))
  202.         =FWRITE(new, TRIM(Sales)+',')
  203.     ELSE
  204.         =FWRITE(new, ',')
  205.     ENDIF
  206.         
  207.     IF NOT EMPTY(TRIM(Desig1))
  208.         =FWRITE(new, '"'+TRIM(Desig1)+'",')
  209.     ELSE
  210.         =FWRITE(new, ',')
  211.     ENDIF
  212.         
  213.     IF NOT EMPTY(TRIM(Desig1))
  214.         =FWRITE(new, '"'+TRIM(Desig1)+'",')
  215.     ELSE
  216.         =FWRITE(new, ',')
  217.     ENDIF
  218.         
  219.     IF NOT EMPTY(TRIM(Desig2))
  220.         =FWRITE(new, '"'+TRIM(Desig2)+'",')
  221.     ELSE
  222.         =FWRITE(new, ',')
  223.     ENDIF
  224.  
  225.     IF NOT EMPTY(TRIM(Desig3))
  226.         =FWRITE(new, '"'+TRIM(Desig3)+'",')
  227.     ELSE
  228.         =FWRITE(new, ',')
  229.     ENDIF
  230.  
  231.     IF NOT EMPTY(TRIM(Desig4))
  232.         =FWRITE(new, '"'+TRIM(Desig4)+'",')
  233.     ELSE
  234.         =FWRITE(new, ',')
  235.     ENDIF
  236.  
  237.     IF NOT EMPTY(TRIM(Desig5))
  238.         =FWRITE(new, '"'+TRIM(Desig5)+'",')
  239.     ELSE
  240.         =FWRITE(new, ',')
  241.     ENDIF
  242.  
  243.     IF NOT EMPTY(TRIM(Desig6))
  244.         =FWRITE(new, '"'+TRIM(Desig6)+'",')
  245.     ELSE
  246.         =FWRITE(new, ',')
  247.     ENDIF
  248.  
  249.     IF NOT EMPTY(TRIM(Club))
  250.         =FWRITE(new, '"'+TRIM(Club)+'",')
  251.     ELSE
  252.         =FWRITE(new, ',')
  253.     ENDIF
  254.  
  255.     IF NOT EMPTY(TRIM(ROF))
  256.         =FWRITE(new, '"'+TRIM(ROF)+'",')
  257.     ELSE
  258.         =FWRITE(new, ',')
  259.     ENDIF
  260.  
  261.     IF NOT EMPTY(TRIM(Comm1))
  262.         DO CASE
  263.             CASE Comm1 == 'A'
  264.                 =FWRITE(new, '"Apartment Buildings (under 100 units)",')
  265.             CASE Comm1 == 'B'
  266.                 =FWRITE(new, '"Apartment Buildings (over 100 units)",')
  267.             CASE Comm1 == 'C'
  268.                 =FWRITE(new, '"Build to Suit/Leaseback (under 100 units)",')
  269.             CASE Comm1 == 'D'
  270.                 =FWRITE(new, '"Business Opportunities",')
  271.             CASE Comm1 == 'E'
  272.                 =FWRITE(new, '"Condo Conversions",')
  273.             CASE Comm1 == 'F'
  274.                 =FWRITE(new, '"Development",')
  275.             CASE Comm1 == 'G'
  276.                 =FWRITE(new, '"Exchanging",')
  277.             CASE Comm1 == 'H'
  278.                 =FWRITE(new, '"Farm and Land",')
  279.             CASE Comm1 == 'I'
  280.                 =FWRITE(new, '"Foreign Investment Property",')
  281.             CASE Comm1 == 'J'
  282.                 =FWRITE(new, '"General Commercial",')
  283.             CASE Comm1 == 'K'
  284.                 =FWRITE(new, '"Health Care Faculties",')
  285.             CASE Comm1 == 'L'
  286.                 =FWRITE(new, '"Hotels/Motels",')
  287.             CASE Comm1 == 'M'
  288.                 =FWRITE(new, '"Industrial Properties/Warehouse",')
  289.             CASE Comm1 == 'N'
  290.                 =FWRITE(new, '"Leasing",')
  291.             CASE Comm1 == 'O'
  292.                 =FWRITE(new, '"Mobile Home Parks",')
  293.             CASE Comm1 == 'P'
  294.                 =FWRITE(new, '"Office Buildings (under 100,000 S.F.)",')
  295.             CASE Comm1 == 'Q'
  296.                 =FWRITE(new, '"Office Buildings (over 100,000 S.F.)",')
  297.             CASE Comm1 == 'R'
  298.                 =FWRITE(new, '"Other",')
  299.             CASE Comm1 == 'S'
  300.                 =FWRITE(new, '"Restaurant",')
  301.             CASE Comm1 == 'T'
  302.                 =FWRITE(new, '"Retirement Properties/Communities",')
  303.             CASE Comm1 == 'U'
  304.                 =FWRITE(new, '"Shopping Centers (under 100,000 S.F.)",')
  305.             CASE Comm1 == 'V'
  306.                 =FWRITE(new, '"Shopping Centers (over 100,000 S.F.)",')
  307.             CASE Comm1 == 'W'
  308.                 =FWRITE(new, '"Vacant Land (Commercial/Industrial Sites)",')
  309.             CASE Comm1 == 'X'
  310.                 =FWRITE(new, '"Vacant Land (Residential Sites)",')
  311.             CASE Comm1 == 'Y'
  312.                 =FWRITE(new, '"Real Estate Owned (REO)",')
  313.             OTHERWISE
  314.                 =FWRITE(new, ',')
  315.         ENDCASE
  316.     ENDIF
  317.  
  318.     IF NOT EMPTY(TRIM(Comm2))
  319.         DO CASE
  320.             CASE Comm2 == 'A'
  321.                 =FWRITE(new, '"Apartment Buildings (under 100 units)",')
  322.             CASE Comm2 == 'B'
  323.                 =FWRITE(new, '"Apartment Buildings (over 100 units)",')
  324.             CASE Comm2 == 'C'
  325.                 =FWRITE(new, '"Build to Suit/Leaseback (under 100 units)",')
  326.             CASE Comm2 == 'D'
  327.                 =FWRITE(new, '"Business Opportunities",')
  328.             CASE Comm2 == 'E'
  329.                 =FWRITE(new, '"Condo Conversions",')
  330.             CASE Comm2 == 'F'
  331.                 =FWRITE(new, '"Development",')
  332.             CASE Comm2 == 'G'
  333.                 =FWRITE(new, '"Exchanging",')
  334.             CASE Comm2 == 'H'
  335.                 =FWRITE(new, '"Farm and Land",')
  336.             CASE Comm2 == 'I'
  337.                 =FWRITE(new, '"Foreign Investment Property",')
  338.             CASE Comm2 == 'J'
  339.                 =FWRITE(new, '"General Commercial",')
  340.             CASE Comm2 == 'K'
  341.                 =FWRITE(new, '"Health Care Faculties",')
  342.             CASE Comm2 == 'L'
  343.                 =FWRITE(new, '"Hotels/Motels",')
  344.             CASE Comm2 == 'M'
  345.                 =FWRITE(new, '"Industrial Properties/Warehouse",')
  346.             CASE Comm2 == 'N'
  347.                 =FWRITE(new, '"Leasing",')
  348.             CASE Comm2 == 'O'
  349.                 =FWRITE(new, '"Mobile Home Parks",')
  350.             CASE Comm2 == 'P'
  351.                 =FWRITE(new, '"Office Buildings (under 100,000 S.F.)",')
  352.             CASE Comm2 == 'Q'
  353.                 =FWRITE(new, '"Office Buildings (over 100,000 S.F.)",')
  354.             CASE Comm2 == 'R'
  355.                 =FWRITE(new, '"Other",')
  356.             CASE Comm2 == 'S'
  357.                 =FWRITE(new, '"Restaurant",')
  358.             CASE Comm2 == 'T'
  359.                 =FWRITE(new, '"Retirement Properties/Communities",')
  360.             CASE Comm2 == 'U'
  361.                 =FWRITE(new, '"Shopping Centers (under 100,000 S.F.)",')
  362.             CASE Comm2 == 'V'
  363.                 =FWRITE(new, '"Shopping Centers (over 100,000 S.F.)",')
  364.             CASE Comm2 == 'W'
  365.                 =FWRITE(new, '"Vacant Land (Commercial/Industrial Sites)",')
  366.             CASE Comm2 == 'X'
  367.                 =FWRITE(new, '"Vacant Land (Residential Sites)",')
  368.             CASE Comm2 == 'Y'
  369.                 =FWRITE(new, '"Real Estate Owned (REO)",')
  370.             OTHERWISE
  371.                 =FWRITE(new, ',')
  372.         ENDCASE
  373.     ENDIF
  374.  
  375.     IF NOT EMPTY(TRIM(Comm3))
  376.         DO CASE
  377.             CASE Comm3 == 'A'
  378.                 =FWRITE(new, '"Apartment Buildings (under 100 units)",')
  379.             CASE Comm3 == 'B'
  380.                 =FWRITE(new, '"Apartment Buildings (over 100 units)",')
  381.             CASE Comm3 == 'C'
  382.                 =FWRITE(new, '"Build to Suit/Leaseback (under 100 units)",')
  383.             CASE Comm3 == 'D'
  384.                 =FWRITE(new, '"Business Opportunities",')
  385.             CASE Comm3 == 'E'
  386.                 =FWRITE(new, '"Condo Conversions",')
  387.             CASE Comm3 == 'F'
  388.                 =FWRITE(new, '"Development",')
  389.             CASE Comm3 == 'G'
  390.                 =FWRITE(new, '"Exchanging",')
  391.             CASE Comm3 == 'H'
  392.                 =FWRITE(new, '"Farm and Land",')
  393.             CASE Comm3 == 'I'
  394.                 =FWRITE(new, '"Foreign Investment Property",')
  395.             CASE Comm3 == 'J'
  396.                 =FWRITE(new, '"General Commercial",')
  397.             CASE Comm3 == 'K'
  398.                 =FWRITE(new, '"Health Care Faculties",')
  399.             CASE Comm3 == 'L'
  400.                 =FWRITE(new, '"Hotels/Motels",')
  401.             CASE Comm3 == 'M'
  402.                 =FWRITE(new, '"Industrial Properties/Warehouse",')
  403.             CASE Comm3 == 'N'
  404.                 =FWRITE(new, '"Leasing",')
  405.             CASE Comm3 == 'O'
  406.                 =FWRITE(new, '"Mobile Home Parks",')
  407.             CASE Comm3 == 'P'
  408.                 =FWRITE(new, '"Office Buildings (under 100,000 S.F.)",')
  409.             CASE Comm3 == 'Q'
  410.                 =FWRITE(new, '"Office Buildings (over 100,000 S.F.)",')
  411.             CASE Comm3 == 'R'
  412.                 =FWRITE(new, '"Other",')
  413.             CASE Comm3 == 'S'
  414.                 =FWRITE(new, '"Restaurant",')
  415.             CASE Comm3 == 'T'
  416.                 =FWRITE(new, '"Retirement Properties/Communities",')
  417.             CASE Comm3 == 'U'
  418.                 =FWRITE(new, '"Shopping Centers (under 100,000 S.F.)",')
  419.             CASE Comm3 == 'V'
  420.                 =FWRITE(new, '"Shopping Centers (over 100,000 S.F.)",')
  421.             CASE Comm3 == 'W'
  422.                 =FWRITE(new, '"Vacant Land (Commercial/Industrial Sites)",')
  423.             CASE Comm3 == 'X'
  424.                 =FWRITE(new, '"Vacant Land (Residential Sites)",')
  425.             CASE Comm3 == 'Y'
  426.                 =FWRITE(new, '"Real Estate Owned (REO)",')
  427.             OTHERWISE
  428.                 =FWRITE(new, ',')
  429.         ENDCASE
  430.     ENDIF
  431.  
  432.     IF NOT EMPTY(TRIM(Comm4))
  433.         DO CASE
  434.             CASE Comm4 == 'A'
  435.                 =FWRITE(new, '"Apartment Buildings (under 100 units)",')
  436.             CASE Comm4 == 'B'
  437.                 =FWRITE(new, '"Apartment Buildings (over 100 units)",')
  438.             CASE Comm4 == 'C'
  439.                 =FWRITE(new, '"Build to Suit/Leaseback (under 100 units)",')
  440.             CASE Comm4 == 'D'
  441.                 =FWRITE(new, '"Business Opportunities",')
  442.             CASE Comm4 == 'E'
  443.                 =FWRITE(new, '"Condo Conversions",')
  444.             CASE Comm4 == 'F'
  445.                 =FWRITE(new, '"Development",')
  446.             CASE Comm4 == 'G'
  447.                 =FWRITE(new, '"Exchanging",')
  448.             CASE Comm4 == 'H'
  449.                 =FWRITE(new, '"Farm and Land",')
  450.             CASE Comm4 == 'I'
  451.                 =FWRITE(new, '"Foreign Investment Property",')
  452.             CASE Comm4 == 'J'
  453.                 =FWRITE(new, '"General Commercial",')
  454.             CASE Comm4 == 'K'
  455.                 =FWRITE(new, '"Health Care Faculties",')
  456.             CASE Comm4 == 'L'
  457.                 =FWRITE(new, '"Hotels/Motels",')
  458.             CASE Comm4 == 'M'
  459.                 =FWRITE(new, '"Industrial Properties/Warehouse",')
  460.             CASE Comm4 == 'N'
  461.                 =FWRITE(new, '"Leasing",')
  462.             CASE Comm4 == 'O'
  463.                 =FWRITE(new, '"Mobile Home Parks",')
  464.             CASE Comm4 == 'P'
  465.                 =FWRITE(new, '"Office Buildings (under 100,000 S.F.)",')
  466.             CASE Comm4 == 'Q'
  467.                 =FWRITE(new, '"Office Buildings (over 100,000 S.F.)",')
  468.             CASE Comm4 == 'R'
  469.                 =FWRITE(new, '"Other",')
  470.             CASE Comm4 == 'S'
  471.                 =FWRITE(new, '"Restaurant",')
  472.             CASE Comm4 == 'T'
  473.                 =FWRITE(new, '"Retirement Properties/Communities",')
  474.             CASE Comm4 == 'U'
  475.                 =FWRITE(new, '"Shopping Centers (under 100,000 S.F.)",')
  476.             CASE Comm4 == 'V'
  477.                 =FWRITE(new, '"Shopping Centers (over 100,000 S.F.)",')
  478.             CASE Comm4 == 'W'
  479.                 =FWRITE(new, '"Vacant Land (Commercial/Industrial Sites)",')
  480.             CASE Comm4 == 'X'
  481.                 =FWRITE(new, '"Vacant Land (Residential Sites)",')
  482.             CASE Comm4 == 'Y'
  483.                 =FWRITE(new, '"Real Estate Owned (REO)",')
  484.             OTHERWISE
  485.                 =FWRITE(new, ',')
  486.         ENDCASE
  487.     ENDIF
  488.  
  489.     IF NOT EMPTY(TRIM(Comm5))
  490.         DO CASE
  491.             CASE Comm5 == 'A'
  492.                 =FWRITE(new, '"Apartment Buildings (under 100 units)",')
  493.             CASE Comm5 == 'B'
  494.                 =FWRITE(new, '"Apartment Buildings (over 100 units)",')
  495.             CASE Comm5 == 'C'
  496.                 =FWRITE(new, '"Build to Suit/Leaseback (under 100 units)",')
  497.             CASE Comm5 == 'D'
  498.                 =FWRITE(new, '"Business Opportunities",')
  499.             CASE Comm5 == 'E'
  500.                 =FWRITE(new, '"Condo Conversions",')
  501.             CASE Comm5 == 'F'
  502.                 =FWRITE(new, '"Development",')
  503.             CASE Comm5 == 'G'
  504.                 =FWRITE(new, '"Exchanging",')
  505.             CASE Comm5 == 'H'
  506.                 =FWRITE(new, '"Farm and Land",')
  507.             CASE Comm5 == 'I'
  508.                 =FWRITE(new, '"Foreign Investment Property",')
  509.             CASE Comm5 == 'J'
  510.                 =FWRITE(new, '"General Commercial",')
  511.             CASE Comm5 == 'K'
  512.                 =FWRITE(new, '"Health Care Faculties",')
  513.             CASE Comm5 == 'L'
  514.                 =FWRITE(new, '"Hotels/Motels",')
  515.             CASE Comm5 == 'M'
  516.                 =FWRITE(new, '"Industrial Properties/Warehouse",')
  517.             CASE Comm5 == 'N'
  518.                 =FWRITE(new, '"Leasing",')
  519.             CASE Comm5 == 'O'
  520.                 =FWRITE(new, '"Mobile Home Parks",')
  521.             CASE Comm5 == 'P'
  522.                 =FWRITE(new, '"Office Buildings (under 100,000 S.F.)",')
  523.             CASE Comm5 == 'Q'
  524.                 =FWRITE(new, '"Office Buildings (over 100,000 S.F.)",')
  525.             CASE Comm5 == 'R'
  526.                 =FWRITE(new, '"Other",')
  527.             CASE Comm5 == 'S'
  528.                 =FWRITE(new, '"Restaurant",')
  529.             CASE Comm5 == 'T'
  530.                 =FWRITE(new, '"Retirement Properties/Communities",')
  531.             CASE Comm5 == 'U'
  532.                 =FWRITE(new, '"Shopping Centers (under 100,000 S.F.)",')
  533.             CASE Comm5 == 'V'
  534.                 =FWRITE(new, '"Shopping Centers (over 100,000 S.F.)",')
  535.             CASE Comm5 == 'W'
  536.                 =FWRITE(new, '"Vacant Land (Commercial/Industrial Sites)",')
  537.             CASE Comm5 == 'X'
  538.                 =FWRITE(new, '"Vacant Land (Residential Sites)",')
  539.             CASE Comm5 == 'Y'
  540.                 =FWRITE(new, '"Real Estate Owned (REO)",')
  541.             OTHERWISE
  542.                 =FWRITE(new, ',')
  543.         ENDCASE
  544.     ENDIF
  545.  
  546.     IF NOT EMPTY(TRIM(OffName))
  547.         =FWRITE(new, '"'+TRIM(OffName)+'",')
  548.     ELSE
  549.         =FWRITE(new, ',')
  550.     ENDIF
  551.  
  552.     IF NOT EMPTY(TRIM(OffAdd1))
  553.         =FWRITE(new, '"'+TRIM(OffAdd1)+'",')
  554.     ELSE
  555.         =FWRITE(new, ',')
  556.     ENDIF
  557.  
  558.     IF NOT EMPTY(TRIM(OffAdd2))
  559.         =FWRITE(new, '"'+TRIM(OffAdd2)+'",')
  560.     ELSE
  561.         =FWRITE(new, ',')
  562.     ENDIF
  563.  
  564.     IF NOT EMPTY(TRIM(City))
  565.         =FWRITE(new, '"'+TRIM(City)+'",')
  566.     ELSE
  567.         =FWRITE(new, ',')
  568.     ENDIF
  569.  
  570.     IF NOT EMPTY(TRIM(State))
  571.         =FWRITE(new, '"'+UPPER(TRIM(State))+'",')
  572.     ELSE
  573.         =FWRITE(new, ',')
  574.     ENDIF
  575.  
  576.     IF NOT EMPTY(TRIM(Zip))
  577.         =FWRITE(new, '"'+TRIM(Zip)+'",')
  578.     ELSE
  579.         =FWRITE(new, ',')
  580.     ENDIF
  581.  
  582.     IF NOT EMPTY(TRIM(Country))
  583.         =FWRITE(new, '"'+TRIM(Country)+'",')
  584.     ELSE
  585.         =FWRITE(new, ',')
  586.     ENDIF
  587.  
  588.     IF NOT EMPTY(TRIM(Phone1))
  589.         =FWRITE(new, '"'+TRIM(Phone1)+'",')
  590.     ELSE
  591.         =FWRITE(new, ',')
  592.     ENDIF
  593.  
  594.     IF NOT EMPTY(TRIM(Phone2))
  595.         =FWRITE(new, '"'+TRIM(Phone2)+'",')
  596.     ELSE
  597.         =FWRITE(new, ',')
  598.     ENDIF
  599.  
  600.     IF NOT EMPTY(TRIM(Phone3))
  601.         =FWRITE(new, '"'+TRIM(Phone3)+'",')
  602.     ELSE
  603.         =FWRITE(new, ',')
  604.     ENDIF
  605.  
  606.     IF NOT EMPTY(TRIM(Phone4))
  607.         =FWRITE(new, '"'+TRIM(Phone4)+'",')
  608.     ELSE
  609.         =FWRITE(new, ',')
  610.     ENDIF
  611.  
  612.     IF NOT EMPTY(TRIM(FAX))
  613.         =FWRITE(new, '"'+TRIM(FAX)+'",')
  614.     ELSE
  615.         =FWRITE(new, ',')
  616.     ENDIF
  617.  
  618.     IF NOT EMPTY(TRIM(Picture))
  619.         =FWRITE(new, '"'+TRIM(Picture)+'",')
  620.     ELSE
  621.         =FWRITE(new, ',')
  622.     ENDIF        
  623.  
  624.     IF NOT EMPTY(TRIM(Service1))
  625.         =FWRITE(new, '"'+TRIM(Service1)+'",')
  626.     ELSE
  627.         =FWRITE(new, ',')
  628.     ENDIF
  629.  
  630.     IF NOT EMPTY(TRIM(Service2))
  631.         =FWRITE(new, '"'+TRIM(Service2)+'",')
  632.     ELSE
  633.         =FWRITE(new, ',')
  634.     ENDIF
  635.  
  636.     IF NOT EMPTY(TRIM(Service3))
  637.         =FWRITE(new, '"'+TRIM(Service3)+'",')
  638.     ELSE
  639.         =FWRITE(new, ',')
  640.     ENDIF
  641.  
  642.     IF NOT EMPTY(TRIM(Service4))
  643.         =FWRITE(new, '"'+TRIM(Service4)+'",')
  644.     ELSE
  645.         =FWRITE(new, ',')
  646.     ENDIF
  647.  
  648.     IF NOT EMPTY(TRIM(Open))
  649.         =FWRITE(new, TRIM(Open)+',')
  650.     ELSE
  651.         =FWRITE(new, ',')
  652.     ENDIF
  653.  
  654.     IF NOT EMPTY(TRIM(ADI))
  655.         =FWRITE(new, '"'+TRIM(ADI)+'",')
  656.     ELSE
  657.         =FWRITE(new, ',')
  658.     ENDIF
  659.  
  660.     IF NOT EMPTY(TRIM(Page))
  661.         =FWRITE(new, '"'+TRIM(Page)+'",')
  662.     ELSE
  663.         =FWRITE(new, ',')
  664.     ENDIF
  665.  
  666.     IF NOT EMPTY(TRIM(Coor))
  667.         =FWRITE(new, '"'+TRIM(Coor)+'",')
  668.     ELSE
  669.         =FWRITE(new, ',')
  670.     ENDIF
  671.  
  672.     IF NOT EMPTY(TRIM(OffType))
  673.         =FWRITE(new, TRIM(OffType)+',')
  674.     ELSE
  675.         =FWRITE(new, ',')
  676.     ENDIF
  677.  
  678.     IF NOT EMPTY(TRIM(CityOver))
  679.         =FWRITE(new, '"'+TRIM(CityOver)+'",')
  680.     ELSE
  681.         =FWRITE(new, ',')
  682.     ENDIF
  683.  
  684.     IF NOT EMPTY(TRIM(RosterSta))
  685.         =FWRITE(new, '"'+TRIM(RosterSta)+'",')
  686.     ELSE
  687.         =FWRITE(new, ',')
  688.     ENDIF
  689.  
  690.     IF NOT EMPTY(TRIM(Rams))
  691.         =FWRITE(new, '"'+TRIM(Rams)+'",')
  692.     ELSE
  693.         =FWRITE(new, ',')
  694.     ENDIF
  695.  
  696.     IF NOT EMPTY(TRIM(Achiev))
  697.         =FWRITE(new, '"ACHIEV: '+TRIM(Achiev)+'",')
  698.     ELSE
  699.         =FWRITE(new, ',')
  700.     ENDIF
  701.  
  702.     IF NOT EMPTY(TRIM(COMPUSERV))
  703.         =FPUTS(new, ALLTRIM(COMPUSERV)+',')
  704.     ELSE
  705.         =FPUTS(new, ',')
  706.     ENDIF
  707.     
  708. *    IF NOT EMPTY(TRIM(PICTURE))
  709.         IF PICTURE == 'Y'
  710.  
  711.             =FWRITE(bio, Unique+',')
  712.             
  713.             IF NOT EMPTY(TRIM(PhoneLoc))
  714.                 =FWRITE(bio, '"'+TRIM(PhoneLoc)+'",')
  715.             ELSE
  716.                 =FWRITE(bio, ',')
  717.             ENDIF
  718.             
  719.             IF NOT EMPTY(TRIM(HomePhone))
  720.                 =FWRITE(bio, '"'+TRIM(HomePhone)+'",')
  721.             ELSE
  722.                 =FWRITE(bio, ',')
  723.             ENDIF
  724.             
  725.             IF NOT EMPTY(TRIM(AgntFax))
  726.                 =FWRITE(bio, '"'+TRIM(AgntFax)+'",')
  727.             ELSE
  728.                 =FWRITE(bio, ',')
  729.             ENDIF
  730.             
  731.             IF NOT EMPTY(TRIM(AgntPager))
  732.                 =FWRITE(bio, '"'+TRIM(AgntPager)+'",')
  733.             ELSE
  734.                 =FWRITE(bio, ',')
  735.             ENDIF
  736.                 
  737.             IF NOT EMPTY(TRIM(AgntMobile))
  738.                 =FWRITE(bio, '"'+TRIM(AgntMobile)+'",')
  739.              ELSE
  740.                  =FWRITE(bio, ',')
  741.              ENDIF
  742.                  
  743.              IF NOT EMPTY(TRIM(CIVIC1))
  744.                 DO CASE                 
  745.                     CASE CIVIC1 == 'AGED'
  746.                         =FWRITE(bio, '"Aged Volunteer",')
  747.                     CASE CIVIC1 == 'ALCO'
  748.                         =FWRITE(bio, '"AlcoholicsAnon/Al Anon",')
  749.                     CASE CIVIC1 == 'ARMD'
  750.                         =FWRITE(bio, '"Armed Forces Reserves",')
  751.                     CASE CIVIC1 == 'BATT'
  752.                         =FWRITE(bio, '"Battered/Sexual Abuse",')
  753.                     CASE CIVIC1 == 'BGCL'
  754.                         =FWRITE(bio, '"Boys/Girls Clubs",')
  755.                     CASE CIVIC1 == 'BGSC'
  756.                         =FWRITE(bio, '"Boy/Girl Scouts",')
  757.                     CASE CIVIC1 == 'BOAR'
  758.                         =FWRITE(bio, '"Board of Realtors",')
  759.                     CASE CIVIC1 == 'BUSW'
  760.                         =FWRITE(bio, '"Businesswomen's Clubs",')
  761.                     CASE CIVIC1 == 'CANC'
  762.                         =FWRITE(bio, '"Cancer Society",')
  763.                     CASE CIVIC1 == 'CARE'
  764.                         =FWRITE(bio, '"CARES",')
  765.                     CASE CIVIC1 == 'CIVI'
  766.                         =FWRITE(bio, '"Civic Activities",')
  767.                     CASE CIVIC1 == 'CF  '
  768.                         =FWRITE(bio, '"Cystic Fibrosis",')
  769.                     CASE CIVIC1 == 'CCJC'
  770.                         =FWRITE(bio, '"Chamber of Commerce/Jaycees",')
  771.                     CASE CIVIC1 == 'CHSC'
  772.                         =FWRITE(bio, '"Church/School Volunteer",')
  773.                     CASE CIVIC1 == 'CMN '
  774.                         =FWRITE(bio, '"Children's Miracle Network",')
  775.                     CASE CIVIC1 == 'COAC'
  776.                         =FWRITE(bio, '"Coach Volunteer",')
  777.                     CASE CIVIC1 == 'COLL'
  778.                         =FWRITE(bio, '"College/Frat Alumni",')
  779.                     CASE CIVIC1 == 'COMM'
  780.                         =FWRITE(bio, '"Community Economic Devmt",')
  781.                     CASE CIVIC1 == 'CRSB'
  782.                         =FWRITE(bio, '"CRS/CRB",')
  783.                     CASE CIVIC1 == 'DELQ'
  784.                         =FWRITE(bio, '"Delinquency/Tough Love",')
  785.                     CASE CIVIC1 == 'EAST'
  786.                         =FWRITE(bio, '"Easter Seals/Handicapped",')
  787.                     CASE CIVIC1 == 'EEMC'
  788.                         =FWRITE(bio, '"Eagles/Elks/Moose Clubs",')
  789.                     CASE CIVIC1 == 'ENVR'
  790.                         =FWRITE(bio, '"Environmental Concerns",')
  791.                     CASE CIVIC1 == 'FOST'
  792.                         =FWRITE(bio, '"Foster Care/Adoption",')
  793.                     CASE CIVIC1 == 'GRPE'
  794.                         =FWRITE(bio, '"Green Peace",')
  795.                     CASE CIVIC1 == 'HOBL'
  796.                         =FWRITE(bio, '"Home Builders",')
  797.                     CASE CIVIC1 == 'HOLS'
  798.                         =FWRITE(bio, '"Homeless",')
  799.                     CASE CIVIC1 == 'HOME'
  800.                         =FWRITE(bio, '"Home Owners Association",')
  801.                     CASE CIVIC1 == 'HOSP'
  802.                         =FWRITE(bio, '"Hospital Volunteer",')
  803.                     CASE CIVIC1 == 'HUMA'
  804.                         =FWRITE(bio, '"Humane Society",')
  805.                     CASE CIVIC1 == 'JRLG'
  806.                         =FWRITE(bio, '"Jr. League",')
  807.                     CASE CIVIC1 == 'KIWA'
  808.                         =FWRITE(bio, '"Kiwanis",')
  809.                     CASE CIVIC1 == 'KNCO'
  810.                         =FWRITE(bio, '"Knights of Columbus",')
  811.                     CASE CIVIC1 == 'LION'
  812.                         =FWRITE(bio, '"Lions Clubs",')
  813.                     CASE CIVIC1 == 'LITL'
  814.                         =FWRITE(bio, '"Little League",')
  815.                     CASE CIVIC1 == 'MAKE'
  816.                         =FWRITE(bio, '"Make-A-Wish",')
  817.                     CASE CIVIC1 == 'MASO'
  818.                         =FWRITE(bio, '"Masons/Eastern Star/Shriners",')
  819.                     CASE CIVIC1 == 'MEAL'
  820.                         =FWRITE(bio, '"Meals on Wheels",')
  821.                     CASE CIVIC1 == 'MEDL'
  822.                         =FWRITE(bio, '"Medical Auxillary",')
  823.                     CASE CIVIC1 == 'MS  '
  824.                         =FWRITE(bio, '"Multiple Sclerosis",')
  825.                     CASE CIVIC1 == 'OPT '
  826.                         =FWRITE(bio, '"Optimist",')
  827.                     CASE CIVIC1 == 'PTAO'
  828.                         =FWRITE(bio, '"PTA/PTO",')
  829.                     CASE CIVIC1 == 'POLI'
  830.                         =FWRITE(bio, '"Politics/Political Clubs",')
  831.                     CASE CIVIC1 == 'REDC'
  832.                         =FWRITE(bio, '"Red Cross",')
  833.                     CASE CIVIC1 == 'RETD'
  834.                         =FWRITE(bio, '"Retarded People",')
  835.                     CASE CIVIC1 == 'RONM'
  836.                         =FWRITE(bio, '"Ronald McDonald House",')
  837.                     CASE CIVIC1 == 'ROTY'
  838.                         =FWRITE(bio, '"Rotary",')
  839.                     CASE CIVIC1 == 'SADD'
  840.                         =FWRITE(bio, '"SADD/MADD",')
  841.                     CASE CIVIC1 == 'SIER'
  842.                         =FWRITE(bio, '"Sierra Club",')
  843.                     CASE CIVIC1 == 'SPOL'
  844.                         =FWRITE(bio, '"Special Olympics",')
  845.                     CASE CIVIC1 == 'STDY'
  846.                         =FWRITE(bio, '"Study Club",')
  847.                     CASE CIVIC1 == 'TOAS'
  848.                         =FWRITE(bio, '"Toastmasters",')
  849.                     CASE CIVIC1 == 'UNIT'
  850.                         =FWRITE(bio, '"United Way",')
  851.                     CASE CIVIC1 == 'VF  '
  852.                         =FWRITE(bio, '"VFW/Am Legion",')
  853.                     CASE CIVIC1 == 'WC  '
  854.                         =FWRITE(bio, '"Women's Council of Realtors",')
  855.                     CASE CIVIC1 == 'YMCA'
  856.                         =FWRITE(bio, '"YMCA/YWCA",')
  857.                       OTHERWISE
  858.                           =FWRITE(bio, ',')
  859.                   ENDCASE
  860.               ENDIF    
  861.  
  862.  
  863.              IF NOT EMPTY(TRIM(CIVIC2))
  864.                 DO CASE                 
  865.                     CASE CIVIC2 == 'AGED'
  866.                         =FWRITE(bio, '"Aged Volunteer",')
  867.                     CASE CIVIC2 == 'ALCO'
  868.                         =FWRITE(bio, '"AlcoholicsAnon/Al Anon",')
  869.                     CASE CIVIC2 == 'ARMD'
  870.                         =FWRITE(bio, '"Armed Forces Reserves",')
  871.                     CASE CIVIC2 == 'BATT'
  872.                         =FWRITE(bio, '"Battered/Sexual Abuse",')
  873.                     CASE CIVIC2 == 'BGCL'
  874.                         =FWRITE(bio, '"Boys/Girls Clubs",')
  875.                     CASE CIVIC2 == 'BGSC'
  876.                         =FWRITE(bio, '"Boy/Girl Scouts",')
  877.                     CASE CIVIC2 == 'BOAR'
  878.                         =FWRITE(bio, '"Board of Realtors",')
  879.                     CASE CIVIC2 == 'BUSW'
  880.                         =FWRITE(bio, '"Businesswomen's Clubs",')
  881.                     CASE CIVIC2 == 'CANC'
  882.                         =FWRITE(bio, '"Cancer Society",')
  883.                     CASE CIVIC2 == 'CARE'
  884.                         =FWRITE(bio, '"CARES",')
  885.                     CASE CIVIC2 == 'CIVI'
  886.                         =FWRITE(bio, '"Civic Activities",')
  887.                     CASE CIVIC2 == 'CF  '
  888.                         =FWRITE(bio, '"Cystic Fibrosis",')
  889.                     CASE CIVIC2 == 'CCJC'
  890.                         =FWRITE(bio, '"Chamber of Commerce/Jaycees",')
  891.                     CASE CIVIC2 == 'CHSC'
  892.                         =FWRITE(bio, '"Church/School Volunteer",')
  893.                     CASE CIVIC2 == 'CMN '
  894.                         =FWRITE(bio, '"Children's Miracle Network",')
  895.                     CASE CIVIC2 == 'COAC'
  896.                         =FWRITE(bio, '"Coach Volunteer",')
  897.                     CASE CIVIC2 == 'COLL'
  898.                         =FWRITE(bio, '"College/Frat Alumni",')
  899.                     CASE CIVIC2 == 'COMM'
  900.                         =FWRITE(bio, '"Community Economic Devmt",')
  901.                     CASE CIVIC2 == 'CRSB'
  902.                         =FWRITE(bio, '"CRS/CRB",')
  903.                     CASE CIVIC2 == 'DELQ'
  904.                         =FWRITE(bio, '"Delinquency/Tough Love",')
  905.                     CASE CIVIC2 == 'EAST'
  906.                         =FWRITE(bio, '"Easter Seals/Handicapped",')
  907.                     CASE CIVIC2 == 'EEMC'
  908.                         =FWRITE(bio, '"Eagles/Elks/Moose Clubs",')
  909.                     CASE CIVIC2 == 'ENVR'
  910.                         =FWRITE(bio, '"Environmental Concerns",')
  911.                     CASE CIVIC2 == 'FOST'
  912.                         =FWRITE(bio, '"Foster Care/Adoption",')
  913.                     CASE CIVIC2 == 'GRPE'
  914.                         =FWRITE(bio, '"Green Peace",')
  915.                     CASE CIVIC2 == 'HOBL'
  916.                         =FWRITE(bio, '"Home Builders",')
  917.                     CASE CIVIC2 == 'HOLS'
  918.                         =FWRITE(bio, '"Homeless",')
  919.                     CASE CIVIC2 == 'HOME'
  920.                         =FWRITE(bio, '"Home Owners Association",')
  921.                     CASE CIVIC2 == 'HOSP'
  922.                         =FWRITE(bio, '"Hospital Volunteer",')
  923.                     CASE CIVIC2 == 'HUMA'
  924.                         =FWRITE(bio, '"Humane Society",')
  925.                     CASE CIVIC2 == 'JRLG'
  926.                         =FWRITE(bio, '"Jr. League",')
  927.                     CASE CIVIC2 == 'KIWA'
  928.                         =FWRITE(bio, '"Kiwanis",')
  929.                     CASE CIVIC2 == 'KNCO'
  930.                         =FWRITE(bio, '"Knights of Columbus",')
  931.                     CASE CIVIC2 == 'LION'
  932.                         =FWRITE(bio, '"Lions Clubs",')
  933.                     CASE CIVIC2 == 'LITL'
  934.                         =FWRITE(bio, '"Little League",')
  935.                     CASE CIVIC2 == 'MAKE'
  936.                         =FWRITE(bio, '"Make-A-Wish",')
  937.                     CASE CIVIC2 == 'MASO'
  938.                         =FWRITE(bio, '"Masons/Eastern Star/Shriners",')
  939.                     CASE CIVIC2 == 'MEAL'
  940.                         =FWRITE(bio, '"Meals on Wheels",')
  941.                     CASE CIVIC2 == 'MEDL'
  942.                         =FWRITE(bio, '"Medical Auxillary",')
  943.                     CASE CIVIC2 == 'MS  '
  944.                         =FWRITE(bio, '"Multiple Sclerosis",')
  945.                     CASE CIVIC2 == 'OPT '
  946.                         =FWRITE(bio, '"Optimist",')
  947.                     CASE CIVIC2 == 'PTAO'
  948.                         =FWRITE(bio, '"PTA/PTO",')
  949.                     CASE CIVIC2 == 'POLI'
  950.                         =FWRITE(bio, '"Politics/Political Clubs",')
  951.                     CASE CIVIC2 == 'REDC'
  952.                         =FWRITE(bio, '"Red Cross",')
  953.                     CASE CIVIC2 == 'RETD'
  954.                         =FWRITE(bio, '"Retarded People",')
  955.                     CASE CIVIC2 == 'RONM'
  956.                         =FWRITE(bio, '"Ronald McDonald House",')
  957.                     CASE CIVIC2 == 'ROTY'
  958.                         =FWRITE(bio, '"Rotary",')
  959.                     CASE CIVIC2 == 'SADD'
  960.                         =FWRITE(bio, '"SADD/MADD",')
  961.                     CASE CIVIC2 == 'SIER'
  962.                         =FWRITE(bio, '"Sierra Club",')
  963.                     CASE CIVIC2 == 'SPOL'
  964.                         =FWRITE(bio, '"Special Olympics",')
  965.                     CASE CIVIC2 == 'STDY'
  966.                         =FWRITE(bio, '"Study Club",')
  967.                     CASE CIVIC2 == 'TOAS'
  968.                         =FWRITE(bio, '"Toastmasters",')
  969.                     CASE CIVIC2 == 'UNIT'
  970.                         =FWRITE(bio, '"United Way",')
  971.                     CASE CIVIC2 == 'VF  '
  972.                         =FWRITE(bio, '"VFW/Am Legion",')
  973.                     CASE CIVIC2 == 'WC  '
  974.                         =FWRITE(bio, '"Women's Council of Realtors",')
  975.                     CASE CIVIC2 == 'YMCA'
  976.                         =FWRITE(bio, '"YMCA/YWCA",')
  977.                       OTHERWISE
  978.                           =FWRITE(bio, ',')
  979.                   ENDCASE
  980.               ENDIF    
  981.                 
  982.              IF NOT EMPTY(TRIM(CIVIC1))
  983.                 DO CASE                 
  984.                     CASE CIVIC3 == 'AGED'
  985.                         =FWRITE(bio, '"Aged Volunteer",')
  986.                     CASE CIVIC3 == 'ALCO'
  987.                         =FWRITE(bio, '"AlcoholicsAnon/Al Anon",')
  988.                     CASE CIVIC3 == 'ARMD'
  989.                         =FWRITE(bio, '"Armed Forces Reserves",')
  990.                     CASE CIVIC3 == 'BATT'
  991.                         =FWRITE(bio, '"Battered/Sexual Abuse",')
  992.                     CASE CIVIC3 == 'BGCL'
  993.                         =FWRITE(bio, '"Boys/Girls Clubs",')
  994.                     CASE CIVIC3 == 'BGSC'
  995.                         =FWRITE(bio, '"Boy/Girl Scouts",')
  996.                     CASE CIVIC3 == 'BOAR'
  997.                         =FWRITE(bio, '"Board of Realtors",')
  998.                     CASE CIVIC3 == 'BUSW'
  999.                         =FWRITE(bio, '"Businesswomen's Clubs",')
  1000.                     CASE CIVIC3 == 'CANC'
  1001.                         =FWRITE(bio, '"Cancer Society",')
  1002.                     CASE CIVIC3 == 'CARE'
  1003.                         =FWRITE(bio, '"CARES",')
  1004.                     CASE CIVIC3 == 'CIVI'
  1005.                         =FWRITE(bio, '"Civic Activities",')
  1006.                     CASE CIVIC3 == 'CF  '
  1007.                         =FWRITE(bio, '"Cystic Fibrosis",')
  1008.                     CASE CIVIC3 == 'CCJC'
  1009.                         =FWRITE(bio, '"Chamber of Commerce/Jaycees",')
  1010.                     CASE CIVIC3 == 'CHSC'
  1011.                         =FWRITE(bio, '"Church/School Volunteer",')
  1012.                     CASE CIVIC3 == 'CMN '
  1013.                         =FWRITE(bio, '"Children's Miracle Network",')
  1014.                     CASE CIVIC3 == 'COAC'
  1015.                         =FWRITE(bio, '"Coach Volunteer",')
  1016.                     CASE CIVIC3 == 'COLL'
  1017.                         =FWRITE(bio, '"College/Frat Alumni",')
  1018.                     CASE CIVIC3 == 'COMM'
  1019.                         =FWRITE(bio, '"Community Economic Devmt",')
  1020.                     CASE CIVIC3 == 'CRSB'
  1021.                         =FWRITE(bio, '"CRS/CRB",')
  1022.                     CASE CIVIC3 == 'DELQ'
  1023.                         =FWRITE(bio, '"Delinquency/Tough Love",')
  1024.                     CASE CIVIC3 == 'EAST'
  1025.                         =FWRITE(bio, '"Easter Seals/Handicapped",')
  1026.                     CASE CIVIC3 == 'EEMC'
  1027.                         =FWRITE(bio, '"Eagles/Elks/Moose Clubs",')
  1028.                     CASE CIVIC3 == 'ENVR'
  1029.                         =FWRITE(bio, '"Environmental Concerns",')
  1030.                     CASE CIVIC3 == 'FOST'
  1031.                         =FWRITE(bio, '"Foster Care/Adoption",')
  1032.                     CASE CIVIC3 == 'GRPE'
  1033.                         =FWRITE(bio, '"Green Peace",')
  1034.                     CASE CIVIC3 == 'HOBL'
  1035.                         =FWRITE(bio, '"Home Builders",')
  1036.                     CASE CIVIC3 == 'HOLS'
  1037.                         =FWRITE(bio, '"Homeless",')
  1038.                     CASE CIVIC3 == 'HOME'
  1039.                         =FWRITE(bio, '"Home Owners Association",')
  1040.                     CASE CIVIC3 == 'HOSP'
  1041.                         =FWRITE(bio, '"Hospital Volunteer",')
  1042.                     CASE CIVIC3 == 'HUMA'
  1043.                         =FWRITE(bio, '"Humane Society",')
  1044.                     CASE CIVIC3 == 'JRLG'
  1045.                         =FWRITE(bio, '"Jr. League",')
  1046.                     CASE CIVIC3 == 'KIWA'
  1047.                         =FWRITE(bio, '"Kiwanis",')
  1048.                     CASE CIVIC3 == 'KNCO'
  1049.                         =FWRITE(bio, '"Knights of Columbus",')
  1050.                     CASE CIVIC3 == 'LION'
  1051.                         =FWRITE(bio, '"Lions Clubs",')
  1052.                     CASE CIVIC3 == 'LITL'
  1053.                         =FWRITE(bio, '"Little League",')
  1054.                     CASE CIVIC3 == 'MAKE'
  1055.                         =FWRITE(bio, '"Make-A-Wish",')
  1056.                     CASE CIVIC3 == 'MASO'
  1057.                         =FWRITE(bio, '"Masons/Eastern Star/Shriners",')
  1058.                     CASE CIVIC3 == 'MEAL'
  1059.                         =FWRITE(bio, '"Meals on Wheels",')
  1060.                     CASE CIVIC3 == 'MEDL'
  1061.                         =FWRITE(bio, '"Medical Auxillary",')
  1062.                     CASE CIVIC3 == 'MS  '
  1063.                         =FWRITE(bio, '"Multiple Sclerosis",')
  1064.                     CASE CIVIC3 == 'OPT '
  1065.                         =FWRITE(bio, '"Optimist",')
  1066.                     CASE CIVIC3 == 'PTAO'
  1067.                         =FWRITE(bio, '"PTA/PTO",')
  1068.                     CASE CIVIC3 == 'POLI'
  1069.                         =FWRITE(bio, '"Politics/Political Clubs",')
  1070.                     CASE CIVIC3 == 'REDC'
  1071.                         =FWRITE(bio, '"Red Cross",')
  1072.                     CASE CIVIC3 == 'RETD'
  1073.                         =FWRITE(bio, '"Retarded People",')
  1074.                     CASE CIVIC3 == 'RONM'
  1075.                         =FWRITE(bio, '"Ronald McDonald House",')
  1076.                     CASE CIVIC3 == 'ROTY'
  1077.                         =FWRITE(bio, '"Rotary",')
  1078.                     CASE CIVIC3 == 'SADD'
  1079.                         =FWRITE(bio, '"SADD/MADD",')
  1080.                     CASE CIVIC3 == 'SIER'
  1081.                         =FWRITE(bio, '"Sierra Club",')
  1082.                     CASE CIVIC3 == 'SPOL'
  1083.                         =FWRITE(bio, '"Special Olympics",')
  1084.                     CASE CIVIC3 == 'STDY'
  1085.                         =FWRITE(bio, '"Study Club",')
  1086.                     CASE CIVIC3 == 'TOAS'
  1087.                         =FWRITE(bio, '"Toastmasters",')
  1088.                     CASE CIVIC3 == 'UNIT'
  1089.                         =FWRITE(bio, '"United Way",')
  1090.                     CASE CIVIC3 == 'VF  '
  1091.                         =FWRITE(bio, '"VFW/Am Legion",')
  1092.                     CASE CIVIC3 == 'WC  '
  1093.                         =FWRITE(bio, '"Women's Council of Realtors",')
  1094.                     CASE CIVIC3 == 'YMCA'
  1095.                         =FWRITE(bio, '"YMCA/YWCA",')
  1096.                       OTHERWISE
  1097.                           =FWRITE(bio, ',')
  1098.                   ENDCASE
  1099.               ENDIF    
  1100.                 
  1101.             IF NOT EMPTY(TRIM(HOBBY1))
  1102.                 DO CASE
  1103.                 
  1104.                     CASE HOBBY1 == 'ANTC' 
  1105.                         =FWRITE(bio, '"Antique Cars",')
  1106.                     CASE HOBBY1 == 'ANTQ' 
  1107.                         =FWRITE(bio, '"Antiques",')
  1108.                     CASE HOBBY1 == 'ARCH' 
  1109.                         =FWRITE(bio, '"Architecture",')
  1110.                     CASE HOBBY1 == 'ART '
  1111.                         =FWRITE(bio, '"Art/Painting",')
  1112.                     CASE HOBBY1 == 'AUTO' 
  1113.                         =FWRITE(bio, '"Auto Racing",')
  1114.                     CASE HOBBY1 == 'BASK' 
  1115.                         =FWRITE(bio, '"Basketball",')
  1116.                     CASE HOBBY1 == 'BILL' 
  1117.                         =FWRITE(bio, '"Billiards",')
  1118.                     CASE HOBBY1 == 'BIKE' 
  1119.                         =FWRITE(bio, '"Biking",')
  1120.                     CASE HOBBY1 == 'BIRD' 
  1121.                         =FWRITE(bio, '"Bird Watching/Audubon",')
  1122.                     CASE HOBBY1 == 'BOAT' 
  1123.                         =FWRITE(bio, '"Boating/Sailing",')
  1124.                     CASE HOBBY1 == 'BOWL' 
  1125.                         =FWRITE(bio, '"Bowling",')
  1126.                     CASE HOBBY1 == 'BRID' 
  1127.                         =FWRITE(bio, '"Bridge",')
  1128.                     CASE HOBBY1 == 'CHOR' 
  1129.                         =FWRITE(bio, '"Choir/Singing",')
  1130.                     CASE HOBBY1 == 'CHRK' 
  1131.                         =FWRITE(bio, '"Chess/Checkers/Games",')
  1132.                     CASE HOBBY1 == 'COLL' 
  1133.                         =FWRITE(bio, '"Collecting",')
  1134.                     CASE HOBBY1 == 'COMP' 
  1135.                         =FWRITE(bio, '"Computers",')
  1136.                     CASE HOBBY1 == 'COOK' 
  1137.                         =FWRITE(bio, '"Cooking",')
  1138.                     CASE HOBBY1 == 'CURL' 
  1139.                         =FWRITE(bio, '"Curling",')
  1140.                     CASE HOBBY1 == 'DANC' 
  1141.                         =FWRITE(bio, '"Dancing",')
  1142.                     CASE HOBBY1 == 'DOGS' 
  1143.                         =FWRITE(bio, '"Dogs/Cats",')
  1144.                     CASE HOBBY1 == 'DRAM' 
  1145.                         =FWRITE(bio, '"Drama Groups",')
  1146.                     CASE HOBBY1 == 'EDUC' 
  1147.                         =FWRITE(bio, '"Education/Training/Growth",')
  1148.                     CASE HOBBY1 == 'FARM' 
  1149.                         =FWRITE(bio, '"Farming",')
  1150.                     CASE HOBBY1 == 'FITN' 
  1151.                         =FWRITE(bio, '"Fitness",')
  1152.                     CASE HOBBY1 == 'FLY '
  1153.                         =FWRITE(bio, '"Flying",')
  1154.                     CASE HOBBY1 == 'FOOD' 
  1155.                         =FWRITE(bio, '"Food/Wine",')
  1156.                     CASE HOBBY1 == 'GAMB' 
  1157.                         =FWRITE(bio, '"Gambling",')
  1158.                     CASE HOBBY1 == 'GARD' 
  1159.                         =FWRITE(bio, '"Gardening",')
  1160.                     CASE HOBBY1 == 'GOLF' 
  1161.                         =FWRITE(bio, '"Golf",')
  1162.                     CASE HOBBY1 == 'HIKE' 
  1163.                         =FWRITE(bio, '"Hiking/Camping",')
  1164.                     CASE HOBBY1 == 'HIST' 
  1165.                         =FWRITE(bio, '"Historical Society",')
  1166.                     CASE HOBBY1 == 'HOCK' 
  1167.                         =FWRITE(bio, '"Hockey",')
  1168.                     CASE HOBBY1 == 'HORS' 
  1169.                         =FWRITE(bio, '"Horses",')
  1170.                     CASE HOBBY1 == 'HOT '
  1171.                         =FWRITE(bio, '"Hot Air Ballooning",')
  1172.                     CASE HOBBY1 == 'HUNT' 
  1173.                         =FWRITE(bio, '"Hunt/Fish",')
  1174.                     CASE HOBBY1 == 'INDE' 
  1175.                         =FWRITE(bio, '"Interior Decorating",')
  1176.                     CASE HOBBY1 == 'MART' 
  1177.                         =FWRITE(bio, '"Martial Arts",')
  1178.                     CASE HOBBY1 == 'MODL' 
  1179.                         =FWRITE(bio, '"Model Planes/Trains",')
  1180.                     CASE HOBBY1 == 'MOTO' 
  1181.                         =FWRITE(bio, '"Motorcycles",')
  1182.                     CASE HOBBY1 == 'MUIN' 
  1183.                         =FWRITE(bio, '"Musical Instruments",')
  1184.                     CASE HOBBY1 == 'MUSE' 
  1185.                         =FWRITE(bio, '"Museums",')
  1186.                     CASE HOBBY1 == 'MUSI' 
  1187.                         =FWRITE(bio, '"Music/Opera/Ballet/Symphony",')
  1188.                     CASE HOBBY1 == 'PHOT' 
  1189.                         =FWRITE(bio, '"Photography",')
  1190.                     CASE HOBBY1 == 'READ' 
  1191.                         =FWRITE(bio, '"Reading",')
  1192.                     CASE HOBBY1 == 'SCUB' 
  1193.                         =FWRITE(bio, '"Scuba/Snorkel",')
  1194.                     CASE HOBBY1 == 'SEW '
  1195.                         =FWRITE(bio, '"Sewing/Needlecraft/Quilting",')
  1196.                     CASE HOBBY1 == 'SHOP' 
  1197.                         =FWRITE(bio, '"Shoppping",')
  1198.                     CASE HOBBY1 == 'SHOT' 
  1199.                         =FWRITE(bio, '"Target/Trap Shooting",')
  1200.                     CASE HOBBY1 == 'SNOM' 
  1201.                         =FWRITE(bio, '"Snowmobiling",')
  1202.                     CASE HOBBY1 == 'SNOS' 
  1203.                         =FWRITE(bio, '"Snowskiing",')
  1204.                     CASE HOBBY1 == 'SOCC' 
  1205.                         =FWRITE(bio, '"Soccer",')
  1206.                     CASE HOBBY1 == 'SOFT' 
  1207.                         =FWRITE(bio, '"Softball",')
  1208.                     CASE HOBBY1 == 'SPEC' 
  1209.                         =FWRITE(bio, '"Spectator Sports",')
  1210.                     CASE HOBBY1 == 'SQUA' 
  1211.                         =FWRITE(bio, '"Squash",')
  1212.                     CASE HOBBY1 == 'STGL' 
  1213.                         =FWRITE(bio, '"Stained Glass",')
  1214.                     CASE HOBBY1 == 'SWIM' 
  1215.                         =FWRITE(bio, '"Swimming",')
  1216.                     CASE HOBBY1 == 'TENN' 
  1217.                         =FWRITE(bio, '"Tennis",')
  1218.                     CASE HOBBY1 == 'THEA' 
  1219.                         =FWRITE(bio, '"Theatre/Movies",')
  1220.                     CASE HOBBY1 == 'TRAV' 
  1221.                         =FWRITE(bio, '"Travel",')
  1222.                     CASE HOBBY1 == 'VOLL' 
  1223.                         =FWRITE(bio, '"Volleyball",')
  1224.                     CASE HOBBY1 == 'WATS' 
  1225.                         =FWRITE(bio, '"Water Skiing",')
  1226.                     CASE HOBBY1 == 'WELF' 
  1227.                         =FWRITE(bio, '"Weightlifting",')
  1228.                     CASE HOBBY1 == 'WOOD' 
  1229.                         =FWRITE(bio, '"Woodworking",')
  1230.                     CASE HOBBY1 == 'WRIT' 
  1231.                         =FWRITE(bio, '"Writing",')
  1232.                     CASE HOBBY1 == 'YOGA' 
  1233.                         =FWRITE(bio, '"Yoga/Meditation",')
  1234.                     OTHERWISE    
  1235.                         =FWRITE(bio, ',')
  1236.  
  1237.                 ENDCASE
  1238.             ENDIF
  1239.                 
  1240.             IF NOT EMPTY(TRIM(HOBBY2))
  1241.                 DO CASE
  1242.                 
  1243.                     CASE HOBBY2 == 'ANTC' 
  1244.                         =FWRITE(bio, '"Antique Cars",')
  1245.                     CASE HOBBY2 == 'ANTQ' 
  1246.                         =FWRITE(bio, '"Antiques",')
  1247.                     CASE HOBBY2 == 'ARCH' 
  1248.                         =FWRITE(bio, '"Architecture",')
  1249.                     CASE HOBBY2 == 'ART '
  1250.                         =FWRITE(bio, '"Art/Painting",')
  1251.                     CASE HOBBY2 == 'AUTO' 
  1252.                         =FWRITE(bio, '"Auto Racing",')
  1253.                     CASE HOBBY2 == 'BASK' 
  1254.                         =FWRITE(bio, '"Basketball",')
  1255.                     CASE HOBBY2 == 'BILL' 
  1256.                         =FWRITE(bio, '"Billiards",')
  1257.                     CASE HOBBY2 == 'BIKE' 
  1258.                         =FWRITE(bio, '"Biking",')
  1259.                     CASE HOBBY2 == 'BIRD' 
  1260.                         =FWRITE(bio, '"Bird Watching/Audubon",')
  1261.                     CASE HOBBY2 == 'BOAT' 
  1262.                         =FWRITE(bio, '"Boating/Sailing",')
  1263.                     CASE HOBBY2 == 'BOWL' 
  1264.                         =FWRITE(bio, '"Bowling",')
  1265.                     CASE HOBBY2 == 'BRID' 
  1266.                         =FWRITE(bio, '"Bridge",')
  1267.                     CASE HOBBY2 == 'CHOR' 
  1268.                         =FWRITE(bio, '"Choir/Singing",')
  1269.                     CASE HOBBY2 == 'CHRK' 
  1270.                         =FWRITE(bio, '"Chess/Checkers/Games",')
  1271.                     CASE HOBBY2 == 'COLL' 
  1272.                         =FWRITE(bio, '"Collecting",')
  1273.                     CASE HOBBY2 == 'COMP' 
  1274.                         =FWRITE(bio, '"Computers",')
  1275.                     CASE HOBBY2 == 'COOK' 
  1276.                         =FWRITE(bio, '"Cooking",')
  1277.                     CASE HOBBY2 == 'CURL' 
  1278.                         =FWRITE(bio, '"Curling",')
  1279.                     CASE HOBBY2 == 'DANC' 
  1280.                         =FWRITE(bio, '"Dancing",')
  1281.                     CASE HOBBY2 == 'DOGS' 
  1282.                         =FWRITE(bio, '"Dogs/Cats",')
  1283.                     CASE HOBBY2 == 'DRAM' 
  1284.                         =FWRITE(bio, '"Drama Groups",')
  1285.                     CASE HOBBY2 == 'EDUC' 
  1286.                         =FWRITE(bio, '"Education/Training/Growth",')
  1287.                     CASE HOBBY2 == 'FARM' 
  1288.                         =FWRITE(bio, '"Farming",')
  1289.                     CASE HOBBY2 == 'FITN' 
  1290.                         =FWRITE(bio, '"Fitness",')
  1291.                     CASE HOBBY2 == 'FLY '
  1292.                         =FWRITE(bio, '"Flying",')
  1293.                     CASE HOBBY2 == 'FOOD' 
  1294.                         =FWRITE(bio, '"Food/Wine",')
  1295.                     CASE HOBBY2 == 'GAMB' 
  1296.                         =FWRITE(bio, '"Gambling",')
  1297.                     CASE HOBBY2 == 'GARD' 
  1298.                         =FWRITE(bio, '"Gardening",')
  1299.                     CASE HOBBY2 == 'GOLF' 
  1300.                         =FWRITE(bio, '"Golf",')
  1301.                     CASE HOBBY2 == 'HIKE' 
  1302.                         =FWRITE(bio, '"Hiking/Camping",')
  1303.                     CASE HOBBY2 == 'HIST' 
  1304.                         =FWRITE(bio, '"Historical Society",')
  1305.                     CASE HOBBY2 == 'HOCK' 
  1306.                         =FWRITE(bio, '"Hockey",')
  1307.                     CASE HOBBY2 == 'HORS' 
  1308.                         =FWRITE(bio, '"Horses",')
  1309.                     CASE HOBBY2 == 'HOT '
  1310.                         =FWRITE(bio, '"Hot Air Ballooning",')
  1311.                     CASE HOBBY2 == 'HUNT' 
  1312.                         =FWRITE(bio, '"Hunt/Fish",')
  1313.                     CASE HOBBY2 == 'INDE' 
  1314.                         =FWRITE(bio, '"Interior Decorating",')
  1315.                     CASE HOBBY2 == 'MART' 
  1316.                         =FWRITE(bio, '"Martial Arts",')
  1317.                     CASE HOBBY2 == 'MODL' 
  1318.                         =FWRITE(bio, '"Model Planes/Trains",')
  1319.                     CASE HOBBY2 == 'MOTO' 
  1320.                         =FWRITE(bio, '"Motorcycles",')
  1321.                     CASE HOBBY2 == 'MUIN' 
  1322.                         =FWRITE(bio, '"Musical Instruments",')
  1323.                     CASE HOBBY2 == 'MUSE' 
  1324.                         =FWRITE(bio, '"Museums",')
  1325.                     CASE HOBBY2 == 'MUSI' 
  1326.                         =FWRITE(bio, '"Music/Opera/Ballet/Symphony",')
  1327.                     CASE HOBBY2 == 'PHOT' 
  1328.                         =FWRITE(bio, '"Photography",')
  1329.                     CASE HOBBY2 == 'READ' 
  1330.                         =FWRITE(bio, '"Reading",')
  1331.                     CASE HOBBY2 == 'SCUB' 
  1332.                         =FWRITE(bio, '"Scuba/Snorkel",')
  1333.                     CASE HOBBY2 == 'SEW '
  1334.                         =FWRITE(bio, '"Sewing/Needlecraft/Quilting",')
  1335.                     CASE HOBBY2 == 'SHOP' 
  1336.                         =FWRITE(bio, '"Shoppping",')
  1337.                     CASE HOBBY2 == 'SHOT' 
  1338.                         =FWRITE(bio, '"Target/Trap Shooting",')
  1339.                     CASE HOBBY2 == 'SNOM' 
  1340.                         =FWRITE(bio, '"Snowmobiling",')
  1341.                     CASE HOBBY2 == 'SNOS' 
  1342.                         =FWRITE(bio, '"Snowskiing",')
  1343.                     CASE HOBBY2 == 'SOCC' 
  1344.                         =FWRITE(bio, '"Soccer",')
  1345.                     CASE HOBBY2 == 'SOFT' 
  1346.                         =FWRITE(bio, '"Softball",')
  1347.                     CASE HOBBY2 == 'SPEC' 
  1348.                         =FWRITE(bio, '"Spectator Sports",')
  1349.                     CASE HOBBY2 == 'SQUA' 
  1350.                         =FWRITE(bio, '"Squash",')
  1351.                     CASE HOBBY2 == 'STGL' 
  1352.                         =FWRITE(bio, '"Stained Glass",')
  1353.                     CASE HOBBY2 == 'SWIM' 
  1354.                         =FWRITE(bio, '"Swimming",')
  1355.                     CASE HOBBY2 == 'TENN' 
  1356.                         =FWRITE(bio, '"Tennis",')
  1357.                     CASE HOBBY2 == 'THEA' 
  1358.                         =FWRITE(bio, '"Theatre/Movies",')
  1359.                     CASE HOBBY2 == 'TRAV' 
  1360.                         =FWRITE(bio, '"Travel",')
  1361.                     CASE HOBBY2 == 'VOLL' 
  1362.                         =FWRITE(bio, '"Volleyball",')
  1363.                     CASE HOBBY2 == 'WATS' 
  1364.                         =FWRITE(bio, '"Water Skiing",')
  1365.                     CASE HOBBY2 == 'WELF' 
  1366.                         =FWRITE(bio, '"Weightlifting",')
  1367.                     CASE HOBBY2 == 'WOOD' 
  1368.                         =FWRITE(bio, '"Woodworking",')
  1369.                     CASE HOBBY2 == 'WRIT' 
  1370.                         =FWRITE(bio, '"Writing",')
  1371.                     CASE HOBBY2 == 'YOGA' 
  1372.                         =FWRITE(bio, '"Yoga/Meditation",')
  1373.                     OTHERWISE    
  1374.                         =FWRITE(bio, ',')
  1375.  
  1376.                 ENDCASE
  1377.             ENDIF
  1378.             
  1379.             IF NOT EMPTY(TRIM(HOBBY3))
  1380.                 DO CASE
  1381.                 
  1382.                     CASE HOBBY3 == 'ANTC' 
  1383.                         =FWRITE(bio, '"Antique Cars",')
  1384.                     CASE HOBBY3 == 'ANTQ' 
  1385.                         =FWRITE(bio, '"Antiques",')
  1386.                     CASE HOBBY3 == 'ARCH' 
  1387.                         =FWRITE(bio, '"Architecture",')
  1388.                     CASE HOBBY3 == 'ART '
  1389.                         =FWRITE(bio, '"Art/Painting",')
  1390.                     CASE HOBBY3 == 'AUTO' 
  1391.                         =FWRITE(bio, '"Auto Racing",')
  1392.                     CASE HOBBY3 == 'BASK' 
  1393.                         =FWRITE(bio, '"Basketball",')
  1394.                     CASE HOBBY3 == 'BILL' 
  1395.                         =FWRITE(bio, '"Billiards",')
  1396.                     CASE HOBBY3 == 'BIKE' 
  1397.                         =FWRITE(bio, '"Biking",')
  1398.                     CASE HOBBY3 == 'BIRD' 
  1399.                         =FWRITE(bio, '"Bird Watching/Audubon",')
  1400.                     CASE HOBBY3 == 'BOAT' 
  1401.                         =FWRITE(bio, '"Boating/Sailing",')
  1402.                     CASE HOBBY3 == 'BOWL' 
  1403.                         =FWRITE(bio, '"Bowling",')
  1404.                     CASE HOBBY3 == 'BRID' 
  1405.                         =FWRITE(bio, '"Bridge",')
  1406.                     CASE HOBBY3 == 'CHOR' 
  1407.                         =FWRITE(bio, '"Choir/Singing",')
  1408.                     CASE HOBBY3 == 'CHRK' 
  1409.                         =FWRITE(bio, '"Chess/Checkers/Games",')
  1410.                     CASE HOBBY3 == 'COLL' 
  1411.                         =FWRITE(bio, '"Collecting",')
  1412.                     CASE HOBBY3 == 'COMP' 
  1413.                         =FWRITE(bio, '"Computers",')
  1414.                     CASE HOBBY3 == 'COOK' 
  1415.                         =FWRITE(bio, '"Cooking",')
  1416.                     CASE HOBBY3 == 'CURL' 
  1417.                         =FWRITE(bio, '"Curling",')
  1418.                     CASE HOBBY3 == 'DANC' 
  1419.                         =FWRITE(bio, '"Dancing",')
  1420.                     CASE HOBBY3 == 'DOGS' 
  1421.                         =FWRITE(bio, '"Dogs/Cats",')
  1422.                     CASE HOBBY3 == 'DRAM' 
  1423.                         =FWRITE(bio, '"Drama Groups",')
  1424.                     CASE HOBBY3 == 'EDUC' 
  1425.                         =FWRITE(bio, '"Education/Training/Growth",')
  1426.                     CASE HOBBY3 == 'FARM' 
  1427.                         =FWRITE(bio, '"Farming",')
  1428.                     CASE HOBBY3 == 'FITN' 
  1429.                         =FWRITE(bio, '"Fitness",')
  1430.                     CASE HOBBY3 == 'FLY '
  1431.                         =FWRITE(bio, '"Flying",')
  1432.                     CASE HOBBY3 == 'FOOD' 
  1433.                         =FWRITE(bio, '"Food/Wine",')
  1434.                     CASE HOBBY3 == 'GAMB' 
  1435.                         =FWRITE(bio, '"Gambling",')
  1436.                     CASE HOBBY3 == 'GARD' 
  1437.                         =FWRITE(bio, '"Gardening",')
  1438.                     CASE HOBBY3 == 'GOLF' 
  1439.                         =FWRITE(bio, '"Golf",')
  1440.                     CASE HOBBY3 == 'HIKE' 
  1441.                         =FWRITE(bio, '"Hiking/Camping",')
  1442.                     CASE HOBBY3 == 'HIST' 
  1443.                         =FWRITE(bio, '"Historical Society",')
  1444.                     CASE HOBBY3 == 'HOCK' 
  1445.                         =FWRITE(bio, '"Hockey",')
  1446.                     CASE HOBBY3 == 'HORS' 
  1447.                         =FWRITE(bio, '"Horses",')
  1448.                     CASE HOBBY3 == 'HOT '
  1449.                         =FWRITE(bio, '"Hot Air Ballooning",')
  1450.                     CASE HOBBY3 == 'HUNT' 
  1451.                         =FWRITE(bio, '"Hunt/Fish",')
  1452.                     CASE HOBBY3 == 'INDE' 
  1453.                         =FWRITE(bio, '"Interior Decorating",')
  1454.                     CASE HOBBY3 == 'MART' 
  1455.                         =FWRITE(bio, '"Martial Arts",')
  1456.                     CASE HOBBY3 == 'MODL' 
  1457.                         =FWRITE(bio, '"Model Planes/Trains",')
  1458.                     CASE HOBBY3 == 'MOTO' 
  1459.                         =FWRITE(bio, '"Motorcycles",')
  1460.                     CASE HOBBY3 == 'MUIN' 
  1461.                         =FWRITE(bio, '"Musical Instruments",')
  1462.                     CASE HOBBY3 == 'MUSE' 
  1463.                         =FWRITE(bio, '"Museums",')
  1464.                     CASE HOBBY3 == 'MUSI' 
  1465.                         =FWRITE(bio, '"Music/Opera/Ballet/Symphony",')
  1466.                     CASE HOBBY3 == 'PHOT' 
  1467.                         =FWRITE(bio, '"Photography",')
  1468.                     CASE HOBBY3 == 'READ' 
  1469.                         =FWRITE(bio, '"Reading",')
  1470.                     CASE HOBBY3 == 'SCUB' 
  1471.                         =FWRITE(bio, '"Scuba/Snorkel",')
  1472.                     CASE HOBBY3 == 'SEW '
  1473.                         =FWRITE(bio, '"Sewing/Needlecraft/Quilting",')
  1474.                     CASE HOBBY3 == 'SHOP' 
  1475.                         =FWRITE(bio, '"Shoppping",')
  1476.                     CASE HOBBY3 == 'SHOT' 
  1477.                         =FWRITE(bio, '"Target/Trap Shooting",')
  1478.                     CASE HOBBY3 == 'SNOM' 
  1479.                         =FWRITE(bio, '"Snowmobiling",')
  1480.                     CASE HOBBY3 == 'SNOS' 
  1481.                         =FWRITE(bio, '"Snowskiing",')
  1482.                     CASE HOBBY3 == 'SOCC' 
  1483.                         =FWRITE(bio, '"Soccer",')
  1484.                     CASE HOBBY3 == 'SOFT' 
  1485.                         =FWRITE(bio, '"Softball",')
  1486.                     CASE HOBBY3 == 'SPEC' 
  1487.                         =FWRITE(bio, '"Spectator Sports",')
  1488.                     CASE HOBBY3 == 'SQUA' 
  1489.                         =FWRITE(bio, '"Squash",')
  1490.                     CASE HOBBY3 == 'STGL' 
  1491.                         =FWRITE(bio, '"Stained Glass",')
  1492.                     CASE HOBBY3 == 'SWIM' 
  1493.                         =FWRITE(bio, '"Swimming",')
  1494.                     CASE HOBBY3 == 'TENN' 
  1495.                         =FWRITE(bio, '"Tennis",')
  1496.                     CASE HOBBY3 == 'THEA' 
  1497.                         =FWRITE(bio, '"Theatre/Movies",')
  1498.                     CASE HOBBY3 == 'TRAV' 
  1499.                         =FWRITE(bio, '"Travel",')
  1500.                     CASE HOBBY3 == 'VOLL' 
  1501.                         =FWRITE(bio, '"Volleyball",')
  1502.                     CASE HOBBY3 == 'WATS' 
  1503.                         =FWRITE(bio, '"Water Skiing",')
  1504.                     CASE HOBBY3 == 'WELF' 
  1505.                         =FWRITE(bio, '"Weightlifting",')
  1506.                     CASE HOBBY3 == 'WOOD' 
  1507.                         =FWRITE(bio, '"Woodworking",')
  1508.                     CASE HOBBY3 == 'WRIT' 
  1509.                         =FWRITE(bio, '"Writing",')
  1510.                     CASE HOBBY3 == 'YOGA' 
  1511.                         =FWRITE(bio, '"Yoga/Meditation",')
  1512.                     OTHERWISE    
  1513.                         =FWRITE(bio, ',')
  1514.  
  1515.                 ENDCASE
  1516.             ENDIF            
  1517.  
  1518.             IF NOT EMPTY(TRIM(MEMBER1))
  1519.                 =FWRITE(bio, '"'+TRIM(MEMBER1)+'",')
  1520.             ELSE
  1521.                 =FWRITE(bio, ',')
  1522.             ENDIF
  1523.                 
  1524.             IF NOT EMPTY(TRIM(MEMBER2))
  1525.                 =FWRITE(bio, '"'+TRIM(MEMBER2)+'",')
  1526.             ELSE
  1527.                 =FWRITE(bio, ',')
  1528.             ENDIF
  1529.                 
  1530.             IF NOT EMPTY(TRIM(MEMBER3))
  1531.                 =FWRITE(bio, '"'+TRIM(MEMBER3)+'",')
  1532.             ELSE
  1533.                 =FWRITE(bio, ',')
  1534.             ENDIF
  1535.                 
  1536.             IF NOT EMPTY(TRIM(Service1))
  1537.                 =FWRITE(bio, '"'+TRIM(Service1)+'",')
  1538.             ELSE
  1539.                 =FWRITE(bio, ',')
  1540.             ENDIF
  1541.                 
  1542.             IF NOT EMPTY(TRIM(Service2))
  1543.                 =FWRITE(bio, '"'+TRIM(Service2)+'",')
  1544.             ELSE
  1545.                 =FWRITE(bio, ',')
  1546.  
  1547.             ENDIF
  1548.                 
  1549.             IF NOT EMPTY(TRIM(Service3))
  1550.                 =FWRITE(bio, '"'+TRIM(Service3)+'",')
  1551.             ELSE
  1552.                 =FWRITE(bio, ',')
  1553.             ENDIF
  1554.                 
  1555.             IF NOT EMPTY(TRIM(Service4))
  1556.                 =FWRITE(bio, '"'+TRIM(Service4)+'",')
  1557.             ELSE
  1558.                 =FWRITE(bio, ',')
  1559.             ENDIF
  1560.                 
  1561.             IF NOT EMPTY(TRIM(Service5))
  1562.                 =FWRITE(bio, '"'+TRIM(Service5)+'",')
  1563.             ELSE
  1564.                 =FWRITE(bio, ',')
  1565.             ENDIF        
  1566.  
  1567.             IF NOT EMPTY(TRIM(Education))
  1568.                 =FWRITE(bio, '"'+TRIM(Education)+'",')
  1569.             ELSE
  1570.                 =FWRITE(bio, ',')
  1571.             ENDIF        
  1572.  
  1573.             IF NOT EMPTY(TRIM(Desig1))
  1574.                 =FWRITE(bio, '"'+TRIM(Desig1)+'",')
  1575.             ELSE
  1576.                 =FWRITE(bio, ',')
  1577.             ENDIF        
  1578.  
  1579.             IF NOT EMPTY(TRIM(Desig2))
  1580.                 =FWRITE(bio, '"'+TRIM(Desig2)+'",')
  1581.             ELSE
  1582.                 =FWRITE(bio, ',')
  1583.             ENDIF        
  1584.  
  1585.             IF NOT EMPTY(TRIM(Desig3))
  1586.                 =FWRITE(bio, '"'+TRIM(Desig3)+'",')
  1587.             ELSE
  1588.                 =FWRITE(bio, ',')
  1589.             ENDIF        
  1590.  
  1591.             IF NOT EMPTY(TRIM(Career))
  1592.                 =FWRITE(bio, '"'+TRIM(Career)+'",')
  1593.             ELSE
  1594.                 =FWRITE(bio, ',')
  1595.             ENDIF        
  1596.  
  1597.             IF NOT EMPTY(TRIM(Price_fr))
  1598.                 =FWRITE(bio, '"'+TRIM(Price_fr)+'",')
  1599.             ELSE
  1600.                 =FWRITE(bio, ',')
  1601.             ENDIF        
  1602.  
  1603.             IF NOT EMPTY(TRIM(Price_to))
  1604.                 =FWRITE(bio, '"'+TRIM(Price_to)+'",')
  1605.             ELSE
  1606.                 =FWRITE(bio, ',')
  1607.             ENDIF        
  1608.  
  1609.             IF NOT EMPTY(TRIM(Pref))
  1610.                 =FWRITE(bio, '"'+TRIM(Pref)+'",')
  1611.             ELSE
  1612.                 =FWRITE(bio, ',')
  1613.             ENDIF        
  1614.  
  1615.             IF NOT EMPTY(TRIM(Referal1))
  1616.                 =FWRITE(bio, '"'+TRIM(Referal1)+'",')
  1617.             ELSE
  1618.                 =FWRITE(bio, ',')
  1619.             ENDIF        
  1620.  
  1621.             IF NOT EMPTY(TRIM(Referal2))
  1622.                 =FWRITE(bio, '"'+TRIM(Referal2)+'",')
  1623.             ELSE
  1624.                 =FWRITE(bio, ',')
  1625.             ENDIF        
  1626.  
  1627.             IF NOT EMPTY(TRIM(Referal3))
  1628.                 =FWRITE(bio, '"'+TRIM(Referal3)+'",')
  1629.             ELSE
  1630.                 =FWRITE(bio, ',')
  1631.             ENDIF        
  1632.  
  1633.             IF NOT EMPTY(TRIM(Referal4))
  1634.                 =FWRITE(bio, '"'+TRIM(Referal4)+'",')
  1635.             ELSE
  1636.                 =FWRITE(bio, ',')
  1637.             ENDIF        
  1638.  
  1639.             IF NOT EMPTY(TRIM(ERCPaper))
  1640.                 =FWRITE(bio, '"'+TRIM(ERCPaper)+'",')
  1641.             ELSE
  1642.                 =FWRITE(bio, ',')
  1643.             ENDIF        
  1644.  
  1645.             IF NOT EMPTY(TRIM(Welcomekit))
  1646.                 =FWRITE(bio, '"'+TRIM(Welcomekit)+'",')
  1647.             ELSE
  1648.                 =FWRITE(bio, ',')
  1649.             ENDIF        
  1650.  
  1651.             IF NOT EMPTY(TRIM(Relocations))
  1652.                 =FWRITE(bio, TRIM(Relocations)+',')
  1653.             ELSE
  1654.                 =FWRITE(bio, ',')
  1655.             ENDIF        
  1656.  
  1657.             IF NOT EMPTY(TRIM(Picture))
  1658.                 =FWRITE(bio, '"'+TRIM(Picture)+'",')
  1659.             ELSE
  1660.                 =FWRITE(bio, ',')
  1661.             ENDIF        
  1662.  
  1663.             IF NOT EMPTY(TRIM(EntryDate))
  1664.                 =FWRITE(bio, TRIM(EntryDate)+',')
  1665.             ELSE
  1666.                 =FWRITE(bio, ',')
  1667.             ENDIF        
  1668.  
  1669.             IF NOT EMPTY(TRIM(BioSubs))
  1670.                 =FWRITE(bio, TRIM(BioSubs)+',')
  1671.             ELSE
  1672.                 =FWRITE(bio, ',')
  1673.             ENDIF        
  1674.  
  1675.             IF NOT EMPTY(TRIM(Info))
  1676.                 =FPUTS(bio, '"'+TRIM(Info)+'",')
  1677.             ELSE
  1678.                 =FPUTS(bio, ',')
  1679.             ENDIF        
  1680.             
  1681.         ENDIF
  1682.         
  1683. *    ENDIF
  1684.  
  1685.             
  1686.       Count = Count + 1    
  1687.  
  1688. *    ? Relocations
  1689. *    ? EntryDate
  1690. *    ? Info    
  1691. *    ? Picture    
  1692.     
  1693. ENDDO
  1694.  
  1695. =FCLOSE(bio)
  1696. =FCLOSE(handle)
  1697. =FCLOSE(new)
  1698.